home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 Reader Awards / macformat-098.iso / MF Data / MFCD / 00006_websitelist.ls < prev    next >
Encoding:
Text File  |  2000-11-01  |  613 b   |  20 lines
  1. on mouseWithin
  2.   lineOver = the mouseLoc
  3.   currentMember = sprite(30).member
  4.   lineNum = sprite(30).pointToLine(lineOver)
  5.   lineText = currentMember.line[lineNum]
  6.   hilite member(6).line[lineNum]
  7.   put member(lineText, "websiteDescrip").text into member 7 of castLib "internal"
  8.   if lineText = EMPTY then
  9.     put EMPTY into member "infoText"
  10.     exit
  11.   end if
  12.   sprite(31).member = member(lineText, "websitePictures")
  13.   updateStage()
  14.   put EMPTY & RETURN & "To visit the '" & lineText & "' website, click within its web graphic..." into member "infoText"
  15. end
  16.  
  17. on mouseLeave
  18.   put EMPTY into member "infoText"
  19. end
  20.